home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v10n15 / powexmpl.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-30  |  459 b   |  25 lines
  1. {$N+,E+}
  2. PROGRAM PowerExample;
  3. USES Crt, Pow;
  4.  
  5. VAR
  6.   x, expon, base : Double;
  7.   answer : Char;
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   REPEAT
  12.     Write('Enter a base: ');
  13.     ReadLn(base);
  14.     Write('Enter an exponent: ');
  15.     ReadLn(expon);
  16.  
  17.     x:=power(base,expon);
  18.  
  19.     WriteLn(base:5:4,'^',expon:5:4,' = ',x:7:4);
  20.     Write('Press Q to quit, any other key to continue');
  21.     answer := UpCase(ReadKey);
  22.     WriteLn(answer);
  23.   UNTIL answer = 'Q';
  24. END.
  25.